home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 1 / The Arsenal Files (Arsenal Computer).ISO / os2_app / exist.cmd < prev    next >
Encoding:
Text File  |  1994-01-07  |  588 b   |  23 lines
  1. /*  IF EXISTS
  2.  
  3. CALL EXIST fn type                                           'fn = DIR or FN.EXT   type = D dir -or- F file
  4. IF RESULT = 0 THEN SIGNAL FOUND
  5. IF RESULT = 1 THEN SIGNAL NOT FOUND
  6. IF RESULT = 2 THEN SIGNAL BAD CALL
  7.  */
  8.  
  9. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  10. CALL SysLoadFuncs
  11. ARG FN TYPE
  12. IF TYPE = '' THEN TYPE = 'F'
  13. IF FN = '' THEN SIGNAL BAD
  14. SAY 'CHECKING FOR 'FN
  15. RC = SysFileTree(FN, 'FILE', TYPE)
  16. OK = RC
  17. IF FILE.0 = 0 THEN OK = 1
  18. EXIT OK
  19.  
  20. BAD:
  21. SAY 'SYNTAX:  CALL EXIST [fn | dir] type         type = D (dir) -or- F (file)'
  22. EXIT 2
  23.